home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / biz / dbase / dfa12.lha / rexx / email.dfa < prev    next >
Text File  |  1993-04-24  |  781b  |  38 lines
  1. /************************************************************************
  2.  *
  3.  * email.dfa                        by Dirk Federlein
  4.  *
  5.  * Calls an UUCP mailer (default: elm) with the e-mail address #1
  6.  * of the current address.
  7.  *
  8.  * Notice: To give the mailer another e-mail address than #1 just
  9.  *         use "adr.ADDRESS.10" (#2)or "adr.ADDRESS.11" (#3).
  10.  *
  11.  *         To Change the mailer, just change uucp:c/elm accordingly.
  12.  *
  13.  *
  14.  ************************************************************************/
  15.  
  16.  
  17. options results
  18.  
  19. address "DFA"
  20.  
  21. cr = '0A'X
  22.  
  23. if ~show(ports, DFA) then
  24. do
  25.     exit 0
  26. end
  27.  
  28. GETCURRENT "STEM ADR."
  29.  
  30. if rc=0 then
  31. do
  32.     address command 'uucp:c/elm' adr.ADDRESS.9
  33. end
  34.     else
  35.         say 'You must have an active address,' cr 'to get an e-mail address from it'
  36.  
  37. exit
  38.